function viewAll( sid, part, ebsd, save, thr, mgs, epsilon, tasklist, gtasklist )
%Draw all infromation about sample
%   Draw all infromation about sample
%
% Syntax
%   viewAll( sid, part, ebsd, save, thr, mgs, epsilon, tasklist, gtasklist)
%
% Input
%   sid   		- sample id: 's01', 's02', 's03', 's04' , 't01'
%   part 		- part id
%   ebsd 		- EBSD data if 0, try load useing function "[sid '_load']"
%   save 		- save image to disk
%   thr 		- boundary detection threshold
%   mgs 		- minimal grain's size (lesser grains deleted)
%   epsilon 	- KOG thershold
%   tasklist 	- list of tasks
%   gtasklist 	- list of grains' tasks
%
% History
% 28.10.12  Phases' map drawing, if number of phases > 1.
% 01.12.12  Add description of the function. Add 'tasklist' and
%           'gtasklist'.
% 06.12.12  Add 'epsilon'.
% 28.12.12  Add 'Fit' property.


% Display sample information
% disp('----------------------');
disp(['  ' sid '-' num2str(part)]);
%return;

%% Settings
% Tasks
doMaps      = get_option(tasklist,'doMaps',     0);
doPhases    = get_option(tasklist,'doPhases',   0);
doProps     = get_option(tasklist,'doProps',    0);
doGrains    = get_option(tasklist,'doGrains',   0);
doSizes     = get_option(tasklist,'doSizes',    0);

% load data
if ~isa(ebsd, 'ebsd')
    ebsd = eval([sid '_load']);
end

%% Processing
% View orientation maps
if doMaps
    viewMaps(sid, part, ebsd, save);
end

% View phases maps
if doPhases
    phases = get(ebsd,'minerals');
    if  length(phases) ~= 1
        viewPhases(sid, part, ebsd, save);
    end
end

% View Properties information, if it's defined
plist = {'IQ', 'CI', 'MAD', 'BC', 'SEM', 'Fit'};
if doProps
    viewProps(sid, part, ebsd, plist, save);
end

% View grains maps
if doGrains
    viewGrains(sid, part, ebsd, save, thr, mgs, epsilon, gtasklist);
end

% View grains' size information
if doSizes
	viewSizes(sid, part, ebsd('Fe'), save, thr, mgs);
end

end